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~JUL-19384 UV1ROM.BUGSRC JBOOUV1SWT.MAR; 1 (1) 
0000001 1 T_UV1_SWITCH = 1 ; Bui icro- 
+eNEwes 608 it 3 7 Pon am C : ! Build Micro-VAX I bootstrap emulator 
“TITLE Bo ORY - DISPATCHER FOR BOOTSTRAP I/O DRIVERS FOR MICRO-VAX | BD 
$8 -IDENT ‘v0Q3-008' BO 
BD 
09 10 ; BD 
4 Y FRAAAA KH AAA EAA AAEAAAAEKERERAHAEREAEARTHAEARERHERERAEEEAAeEReERAeeKeeeeeeeTeEeeEe BD 
i* . 
44 18 ;* COPYRIGHT (c) 1978, 1980, 1982 By * BO’ 
00 14 ;* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. « BD 
909 13 i* ALL RIGHTS RESERVED. ® + 
000 5 * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * BOK 
0000 18 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH TH . BOK 
0000 19 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTH a BO. 
0000 QO ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * BO 
44 1 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * BOC 
5000 § ;* TRANSFERRED. ” = 
3* “i 
0000 4 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * BOC 
0000 5 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® BOC 
44 je CORPORATION. * Bo 
3 a 
0000 8 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * BOC 
44 4 :* SCFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * eae 
4 ® 
: Bac 
0000 i  silnnedeieemnbaneiaaadadeliienethehemiebineeieamuaaemdamenanmes oat 
0000 4 i+ Bac 
0000 35 ; Bac 
4 8 ; FACILITY: ont 
909 8 : Minimal bootstrao driver for all VMS system disks. Lo 
9000 40 > ENVIRONMENT: Bat 
0000 4g ; Runs at IPL 31, kernel mode, memory management may be on or off, Bac 
i $2 ; 1S=1 (running on interrupt stack), code must be PIC. eet 
0000 45 > ABSTRACT: Bu! 
000 4? ; This module contains a routine called BOOSQIO that handles 1/0 EXE 
‘4 8 3 transfers to and from the VMS system disks. ty 
00 0 ; AUTHOR: FIt 
0 13 FUR 
; § : The VMS group a4 
4 > REVISION HISTORY: Po 
§ : v03-008 KDM0070 Kathleen D. Morse 15-Aug-1983 PR{ 
; Create a Micro-VAX I version for use in VMBUVT.EXE. It PTt 
} : has no buffered datapath or map register logic. at 
60 : VO03-007 KDM0073 Kathleen D. Morse 22-Aug-1983 Pus 
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61; Add EXESGL ~TemuseC and EXESGL_UBDELAY to the fixed 

06 3 data cells used by the bootstrap drivers. Create 

o : BQO symbols for these data cells. 
0 65 ; V03-006 TCMO004 udy ¢ Matthews 02-Aug-1983 
8 $6 ; Add definition Pas E E$GB_ CBUDATA cell. 
900 68 : v03-005 KTA3059 Kerbey T. Altmann 21-Jun-1983 
00 ¢? : Add entries for unit disconnect and boot device name - 
4 oy : thus bumping VMB version number. 
8 8 if : V03-004 RLRCPUDISP Robert L. Rappaport Mesa ites 
+4 iS 3 Recode CPUDISP macros to use new format 
9909 75 ; v03-003 TCM0003 Trudy C. Matthews 23-Feb-1983 
000 76 ; Increment VMB version number to indicate adding RPBSL_BADPGS 
0000 oh vise 
9000 79 ; v03-002 TCM0002 rudy C. hews 05-Jan-1983 
3000 HY ; Add 117790-specifie yath o  BOOSPURDPR. 
0000 ; : v03-001 KTA0092 Kerbey T. Altmann 02-Apr-1982 
8606 ? : Bump the version number because of KTAQO9). 
0000 «85 : v02-021 KTA0090 Kerbey T. Altmann 26-Mar-1582 
0000 86 ; Add new cell to IOVEC to contain address of microcode 
0000 87 ; required by a booting device. 
0000 88 ; 
0000 89 ;-- 
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v03-00 Soxlarertens B-iov=1 982 16:39433 LOVIROM. BUESRC BOOTDRIVRP.MAR: 1 3) 
. eclarations 
ee SBTTL Decl i 
; MACRO LIBRARY CALLS 
9 e 
39 SBQODEF ; Define boot gio offsets 

00 4 SBTDDEF ; Define boot device types 

00 SIODEF ; DEFINE 1/0 FUNCTION CODES 

0 100 SMBADEF ; DEFINE MASSBUS ADAPTER REGISTERS 

0 101 SNDTDEF ; NEXUS device Sxpes 

. 1 § SPROEF ; DEFINE PROCESSOR REGISTERS 

1 SPTEDEF ; DEFINE PAGE TABLE ENTRY FIELDS 
00 104 SRPBOEF ; DEFINE RESTART PARAMETER BLOCK 
0 105 SSSDEF ; DEFINE STATUS CODES 
0 196 SUBADEF ; yt eys ADAPTER REGISTER DEFINITIONS 
00 18 SUBIDEF ; 117750 UNIBUS orenter regs. 
B88 108 SVADEF ; DEFINE VIRTUAL ADDRESS FIELDS 

4 109 

00 110 ; 

4 111 ; MACROS 

00 16 ; 
ant 
44 115 ; LOCAL SYMBOLS 
0000 119° 
0900 13 SDEFINI BDT ; Define Boot Driver Table offsets 
44 120 SDEF BOTSL_CPUTYPE .BLKW 1 ; CPU type 
000 121 SDEF BOTSL_DEVTYPE .BLK 1 ; Boot device type 
00046 1 § SDEF BDTSL_ACTION -BLKL 1 3; Action routine 
0008 123 SDEF BOTSL_SIZ -BLKL 1 ; Oriver size 
O00C 124 S$DEF BDTSL_ADDR -BLKL 1 ; Driver address (offset) 

0010 125 SDEF BOTSL_ENTRY -BLKL 1 ; Driver entry (offset from address) 
0014 1 $ SDEF BOTSL_DRIVRNAME .BLKL 1 ; Driver name (offset from address) 
pie 127 SDEF BOTSL_AUXDRNAME .BLKL = 1 ; Auxiliary driver name (offset) 

O1C 128 SDEF BOTSL_UNIT_INIT .BLKL 1 ; Driver unit init (offset from address) 
0020 129 $DEF BOTSL_UNIT_DISC .BLKL 1 ; Driver unit disc (offset from address) 
8 4 ! 9 SDEF BOTSL_DEVNAME .BLKL 1 ; Device name (offset from address) 

00000028 ys ; : § BDTS$K_LENGTH=. ; Length of entry 
00 : 134 SDEFEND BDT ; End of Boot Driver Table definitions 


ee ee 
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138 ; 
Hi : FIXED DATA CELLS FOR BOOTSTRAP DRIVER 


ooo 

ooo 

ooo 

ooo 

oo 

oo 

So 
DOOOCQOOOCOCOSOSOO 
Sooo 


0000 -PSECT BOOTDRIVR_1,LONG ; CERTAIN DRIVERS REQUIRE ALIGNMENT! 
BOOSAL_VECTOR:: ; VECTOR TO BOOT DRIVER ENTRY POINTS 
0046' -LONG BOOSQIO-BOOSAL_VECTOR =: OFFSET TO BOOTSTRAP Q10 ROUT 
Ab’ 0004 .LONG BOOSMAP-BOOSAL-~VECTOR =: OFFSET TO MAPPING ROUTI 
8 -LONG BOOSSELECT-BOOSAL_VECTOR; OFFSET TO BOOTSTRAP I/O DRIVER 
C : INITIALLY SET TO ROUTINE WHICH 
¢ : SELECTS DRIVER 
00090000 000¢ .LONG 0 ; OFFSET TO SYSTEM DISK DRIVER NAME 
; (ASCIC STRING). SET UP BY BOOT DRIVER. 


; The next two words are the version number and the version number check fields. 
; (The second word is the ones complement of the first word.) The version 

; number should be incremented whenever the interface between VMB and the 

; rest of the system changes. Release 1.0 VMB did not contain these fields. 


Version $ - Boot driver passes system disk driver name to SYSBOOT 

Version VMB build memory Coser iets a 

Version 4 = VMB BOOTDRIVR purges buffered datapath, all drivers 
return to BOOTDRIVR with success/failure status 

Version 5 = VMB passes an argument list to the secondary boot 
in AP. FILEREAD cocpesne is present. 

Version 6 - ~ apeee nenus device type of boot adapter in 

Version 7 = BOOSAC_VECTOR now has new entry points for RESELECTing 
a driver and UNIT_INIT for a driver. Also new info 
pesees in the argument List. 

Version 8 - BOOSAL_VECTOR now has a new cell: BQOSL_UCODE. 

Version 9 = VMB passes number of pee memory pages found during 
poorstres scan in RPBSL_BADPGS. 

Version 10- BOOSAL_VECTOR has two néw cells: UNIT_DISC and DEVNAME 


Version 11= BOOSAL_VECTOR has two new cells: TENUSEC and UBDELAY 


Version 12- RPBSW_BOOTNDT is defined, high byte of this word must 
be cleared in SYSBOOT for versions of VMB less than 12. 


Version 13- RPBSB_CTRLLIR is defined; SYSBOOT must clear this field 
for older versions of VM8. 


ASSUME < “BOSAL _VECTOR> EQ BQ0SW_ VERSION 
.WORD 18,*C<13> ; VERSION # AND VERSION # CHECK FIELD. 
-LONG BOOSRESELECT-BOOSAL_VECTOR ; Offset to set new driver 
BOOSMOVE L_ VECTOR =; Offset to routine to select and move 
<.-BOOSAL_VECTOR> EQ BQ0$i_UNIT_INIT 


COOOCCOOCOCOSOOOSCOOSOOSCOOSoOO 


PIED IDI at st kh oh 


BOD CD G9 INI NNN NS SNIP AA AAA AAA AMM III BB PPP PEE 
WN OOD NAUE WN OOO NO NEW 0 ODNOU EW OOONAUE Ww 


‘SESE 


ASSUME 
00000000 ~LONG Gffseft to UNIT_INIT 
: ASSUME <.-BOOSAL_VECTOR> EQ BQ0%L AUXDRNARE 
00000000 -LONG 0 ; Offset to 


gust itary driver name 
second dr 


: ver 
ASSUME <.-BOOSAL_VECTOR> £0 BQ0$i_UMR_DIS 
92 BOOSGL_UMR_DIS:: ; Rumbér of map registers disabled 


FF LOOM OM BVBLOOOOOOOCOOOCOBOOCOCOCOCO OOO COOCOOCOOCOOOOOO. 
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00000000 4 193 -LONG 0 
195 ASSUME <.=-BOOSAL_VECTOR> EQ BQOSL_UCODE 
195 BOOSGL_UCODE: : ; Address of microcode in memory 
00000000 1 $ L 0 
. ASSUME <.=-BOOSAL_VECTOR> EQ BQOSL eee DISC 
00000000 138 «LONG 0 ; Offset to UNIT_DISC 
19 ASSUME <.=BOOSAL_VECTOR> EQ BQ0$L_DEVNAME 
00000000 00 wy LONG 0 ; Offset to boot device name 
034 1 ASSUME <.=BOOSAL_VECTOR> EQ BOO$L_UMR_TMPL 
034 O¢ BOOSGL_UMR_TMPL:: ; ONIBOS map register template 
80000000 0034 -LONG UBASM_MAP_VALID ; Default is valid, no buff data path 
0 4 ASSUME <.=BOOSAL“VECTOR> EQ 800$8_UMR DP 
5 BOOSGB_UMR_DP:: ; ONIBOS map register data path 
01 : $ -BYTE 1 ; Default is Buffered #1 
0 ASSUME <.-BOOSAL_VECTOR> £0 800$8_CPUTYPE 
0039 38 EXESGB_CPUTYPE:: ; Location to hold processor 
01 0039 -BYTE 1 ; identification code 
O3A 210 ASSUME <.=BOOSAL_VECTOR> EQ BQO$L_CPUDATA 
O3A 11 EXESGB_CPUDATA:: ; Location to hold contents of SID. 
00000001 003A \¢ «LONG 1 
8 E 1 ASSUME <.=-BOOSAL_VECTOR> EQ BQOSL_TENUSEC 
O3E 14 EXESGL_TENUSEC:: ; Cocation to hold TIMEDWAIT delay count 
00000001 00 15 «LONG 1 ; Default is value needed for Micro-VAX 
004 16 ASSUME <.-BOOSAL_VECTOR> EQ BQ0$L_UBDELAY 
004 17 EXESGL_UBDELAY:: ; Cocation to hold TIMEDWAIT delay count 
00000001 004 18 «LONG 1 ; Default is value needed for Micro-VAX 


euta 
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-SBTTL B00$QI10 - BOOTSTRAP Q10 ROUTINE 
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> FUNCTIONAL DESCRIPTION: 
: BOOSQIO PROVIDES THE DEV 


POAAO 


ICE INDEPENDENT I/O INTERFACE FOR BOTH 
READING AND WRITING THE BOOTSTRAP DEVICE. 


CALLING SEQUENCE: 
CALLG ARGLIST,BOOSQIO 
INPUT PARAMETERS: 


OOCOOOCCCOOSoOooO 
EE EE EE S~ 


PAEAAPAAAA AAA A AAO 


04 : 
04 : (AP) = BUFFER ADDRESS 
904 ; OTE CAP) - SIZE OF BUFFER IN BYTES 
04 : LBN(AP) = LOGICAL BLOCK NUMBER 
904 : FUNC(AP) = FUNCTION CODE 
04 ; ACCEPTS 10$ READLBL AND 10$_WRITELBLK 
0046 ; MODE(AP) - ADDRESS I INT EnpRe Aig 10N HOPE 
0046 : RPB(AP) = ADDRESS OF RESTART “pb apame Tear BLOFK 
0046 : OUTPUT PARAMETERS: 
046 ; RO = COMPLETION STATUS CODE 
046 : R1 = TOTAL BYTES TRANSFERRED 
0046 : 
046 ; 
046 ; 
Bnee ; Offsets from AP to input arguments: 
aoe . 
00000004 0046 BUF = 4 
90000008 46 SIZE =8 
900000 46 LBN = 12 
00000016 0046 FUNC = 16 
00000014 0046 MODE = Hi 
90000018 46 RPB = 24 
B00SQI0:: 
OFFC WORD anc? R3,R4,R5,R6,R7,.~ ; PRESERVE REGISTERS 


8,R9.R10,R11> 


If mapping is enabled, the processor register RPS_MAPEN contains a 1. 
; Otherwise, the register contains a 0. Use this value as an index to 
choose the appropriate address of the adapter's register space. 


59 18 AC 00 MOVL RPB(AP) ,R9 ; GET BASE ADDRESS OF RESTART PARAMETER BLK 
For the QBUS, if the transfer MODE is phystcat the BUF address contains 

the poyetce address of a S12 I7E physically contiguous bytes. The Driver 

assumes Ss. 


eres 


[=] 

S 

~< 

o 
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—S0e~N—OOe Sn ee ee ae ne ae a ae ae ee a ene 
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04 

58 (01 19 

26 14 AC 
52.5 
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30$: MFPR #PRS_MAPEN 
MOVL 


PUSH_RETRY: 
4 PUSHL 


475 

476 10$: MOVL  R11,R5 

47 MOVL  RPBS$L_IOVEC(R9) RO 
478 JSB angst SELECT (RO) CROJ 
489 1908: BLBS ~—- RO, 2008 

490 150$:  SOBGTR (SP),10$ 

491 2008: RET 


K 13 
SPATCHER FOR BOOTSTRAP 1/0 DRIVERS F B-JAN-1985 17:33:33 YAX/VMS e 
B10 = BOOTSTRAP O10 ROUTINE 33:33 PAX/vAS Macro y04-00 


“NOV-1984 10: UV1ROM.BUGSRC JBOOTDRIVRP.MAR; 


; If the MODE is 1 then the BUF gdergse is translated into ive components: 
; A physical PTE base address and a ‘‘virtual’’ address relative to that PTE. 


mov buf(ap),r10 
movl lLbn(ap),r11 


get basic buffer address 
et LBN 
movzwl size(ap),r8 


et the size 


neq f neg then size < 64K 
ashl #16,#1,r8 set 64K 
10$: clrl r2 assume no PTE base address 


blbc mode(ap) ,30$ 


br if mode is physical 
mov rpb$l_svaspt(r9),r2 304 


assume system address 
address SYSPTE 
This address is physical if 
a VA if ON 
bbss #vaS$v_system,r10,20$ 


Get the PHYA or VA of the 
mapping enabled? 
br if no, r2 is physical 


mfpr #pr$_p0br,r2 
208: mfpr eprs_mapen.r0 


: convert the R2 address which is system virtual to a physical address 


extzv #vaSv_vpn,#va$s_von,r2,r0; get PFN from SYS VA 

mov | arpb$l_svaspt(r9) r63,r0; get PTE for that page for SYS PTE 
bicl #*c<pteSm_pfn>,r0 ; Isolate PFN 

insv r0,#vaSv_vpn,#va$s_vpn+2,r2; convert to PHYSICAL PTE base 


If it is a UNIBUS boot device, derive the address of the device's CSR. 


ASSUME RPBSL_CSRVIR EQ RPSS$L_CSRPHY+4 
EN,RO ; Check for mapping enabled 
RPBSC_CSRPHY(R9)CROJ,R7 ; Get address of device's CSR 
#10 ; Push retry count on stack 


Get address of boot vectors 


; Retry if coun 


: Branch if eusenee 
; Return with final status in RO 


Pa 


; Get a working copy of the block number 
; Call driver thru self-relative vector 


ean” sblRS ELAM OT SUMSAHS BEE ESNCISEE BREE MADE terRAS HE am OOO 


-NOV-1984 10: UV1ROM.BUGSRC JBOOTDRIVRP.MAR; 
; 493 .SBTTL BOOSMAP = ROUTINE TO MAP DATA FOR BO0SQIO 
A 495 ; 
M6 «496: FUNCTIONAL DESCRIPTION: 
M6 «497: BOOSMAP IS CALLED TO INITIALIZE THE DATA BASE FOR BOOSQIO TO PERMIT 
A6 498: IT TO FUNCTION WITH MEMORY MANAGEMENT ENABLED. AN AREA OF SYSTEM 
M6 «499: PAGE TABLE MUST BE PROVIDED SO THAT THE CONFIGURATION REGISTERS #ND 
~ oF : UNIBUS I/O PAGE CAN BE MAPPED. 
OA6 ¢ 3 ; CALLING SEQUENCE : 
OAG 33 CALLG  ARGLIST,BOOSMAP 
BA 5 ; INPUT PARAMETERS: 
OA6 6 ; SVASPT(AP) = SYSTEM VIRTUAL ADDRESS OF THE SYSTEM PAGE TABLE 
00000004 00a SVASPT 
A 08 ; VABASE(AP) = BASE VIRTUAL ADDRESS OF A 24 PAGE WINDOW TO MAP 
Ab 309 : THE ADAPTER CONFIGURATION REGISTERS AND UNIBUS 
00000008 OAs 310 VABASE = ® ae 
bone 318 ; RPB(AP) = ADDRESS OF RESTART PARAMETER BLOCK (RPB) CONTAINING 
OA6 513: BOOTSTRAP DEVICE DESCRIPTION. 
0000000¢ AG 314 RPB 2 0 
00A6 18 + OUTPUT PARAMETERS: 
Q0M6 517 ; NONE 
OA6 18 : 
{YY ae a 
OOF C 521 BOOSMAP: : .WORD “M<R2,R3,R4,R5, Ro, R?> 
57 OC AC 00 ‘ MOVL RPB(AP).R7 GET BASE ADDRESS FOR RPB 
52 04 AC DO O0AC MOVL SVASPT( TAP) ,R2 : : GET BASE OF SPT 
30 A? 52—é=éd 0 4 MOVL RPBSL SvA PT(R7) AND SAVE IN DATA BASE 
53 08 AC «660 (00B4 5 MOVL Wabes ; GET VIRTUAL ADDRESS OF WINDOW 
60 a7 -53.—«D0s«0088 6 MOVL R3 APESL PMpvIRcAT oT AS ADAPTER VIRTUAL ADDRESS 
50 53 15 09 EF BC 1 EXT2V avity ve PR, #VASS_VPN.R3, Rb GET BASE VIRTUAL PAGE 
51 6240 DE 00C1 2 MOVAL ROJ,R1 ; ompuré WORKING SPT POINTER 
55 10 OD cs «5 $ MOVL @ cpr FOR 16 PAGES 
54 54 A7 OOOOIFFF BF CB 00CB 3 BICL3 #*x{FFF +RPBSL CSRPHY(K7) -R& ; GET PHY ADDR OF I/O PAGE BASE 
54 540=«CO17~—S—«O9s«00D1 : ROTL ac32-9> RO” ; AND CONVERT TO PAGE NUMBER 
3 10 D3 BSBB LEST + STORE PTES INTO. PT 
50 54 A? 3C.—s<00D 40 MOVZWL ah : Eskew a7 RO GET 1/0 PAGE GFFSET 
58 A? =FFFF3000 £043 ~=O9E 0B 41 MOVAB  <*X1000-*xE000>(RO)CR3), infil _CSRVIR(R7) ; SET VIRTUAL CSR ADDR 
04 00€ 4g RET ; 
fe ate 
3 45 : FILLSPT 
E <3 > INPUTS: 
E 48 : Ri - POINTER TO CURRENT SPT ENTRY (UPDATED) 
E 49 : R4 = PFN (UPDATED) 
OE 30 3 RS = COUNT “OF PAGES TO FILL (UPDATED) 
ES ; FILLSPT: 
81 $4 90000000 C9 BISL3 #<PTESM_VALID!PTESC_Kw>, a4 (R1)* ; STORE A PTE 
tm £D 4 INCL ; ADVANCE’ TO NEXT PEN 
‘355 OF EF 5 SOBGTR RS.FILLSPT : STORE THEM ALL 
0 F2 4 RSB 


TORUVI = DISPATCHER FOR BOOTSTRAP 1/0 oiives F §=JAN-1985 AX/VAS Macro -00 Pa 
OOS 008 nant = ROUTINE TO MAP DA ata FOR Soo! 6-NOV-19384 10:83: 33 LOVIROM. BUSSRC TOOT ORIVKP. maret 3) 
7. oAL ; Alignment needed by some drivers!!! 
000000F 4 2 6 § poosal0sizs BOOsAL VECTOR ; $i28 of boot 10 rout ine . 
O00000F4 4 g 5 BOOSDRIVER==. ; Start of boot driver (after 
46 6 § ; it’s been moved) 
S .'@ ; NOTE: Boot drivers must be in 
? ? 3 ; psect BOOTDRIVR_2 
0000000¢ 640 -PSECT BOOTORIVR_3 
ele 
00000000 000 64¢ BOOSDRIVER_TBL=. ; Boot driver table 
644 -PSECT BOOTDRIVR_5 
00000000 238 -LONG O ; End of boot driver table 


00000000 648 .PSECT BOOTDRIVR_6 


- DISPAT 
BOOSSELE 


CSoOooooooo 
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-SBTTL BOOSSELECT = Select boot driver 


pee 
; FUNCTIONAL DESCRIPTION: 


654 ; 

6 : This routine is called the first time BOOSQIO calls a driver. 
6 3 It searches the boot driver fonie to locate the proper driver. 
657 ; The correct Linkage is made in BOOSAL_VECTOR. 

658 ; RPBSL_IOVECSZ is also stored with the size of B00$010 plus 

92 : the size of the driver. The driver is then jumped to. 

66 ; CALLING SEQUENCE: 

663 : JSB BOOSSELECT (Actual ly called through self-relative 
ree ; vector in BOOSAL_VECTOR+BQ0$L_SELECT) 
666 : INPUT PARAMETERS: 

208 ; Rg Address of the RPB 

670 ; OUTPUT PARAMETERS: 

67@ : None 

675 ; 

676 BOOSSELECT: 

677 USHR #*M<R1,R2,R3,R4,R5,R6> 

678 BSBB  BOOSRESELECT ; Select the correct driver 
o23 POPR #*M<R1,R2,R3,R4,R5,RO> 

eat : Set up driver vector and jump to driver. 

683 f MOVL RPBSL_IOVEC(R9) ,RO ; Get aderess of vectors 
684 JMP aBaosC_SELECT(RO) CROJ ; Jump to driver 
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68 -SBYTL BOOSMOVE = Select and move boot driver 


1 
9) 


oe 
: ; FUNCTIONAL DESCRIPTION: 


AAAS 


This routine is called after VMB is finished with a driver. 

It searches the boot driver table to locate the proper driver. 

The correct Linkage is made in BOOSAL_VECTOR and driver moved. 
CALLING SEQUENCE: 


JSB BOOSMOVE gedyory called through self-relative 
n 


io Cee Te eee re Te Pere re rere re rere rere rere yy 


90 
691 
$36 
69 
694 
695 
636 
69 
43 vector BOOSAL _VECTOR+BQ0SL_MOVE ) 
£09 INPUT PARAMETERS: 
re RG Address of the RPB 
oe OUTPUT PARAMETERS: 
706 None 
707 
708 oo 
2 709 
§ 710 BOOSMOVE : 
OOFE 8F 6B 711 PUSH #*M<R1,R2,R3,R4,R5,R6,R7> ; Save registers 
4B 10 4 218 BSBB - BOOSRESELECT ; Select tne correct driver 
OC B545 -9E 8 71 MOVAB @BDTSL_ADDR(RS)CR5],R6 ; Address of current position 
54 OOF4'CF 44 D 714 MOVAB W*BOOSBRIVER,R4 ; Address of new position 
56 54 C 2 715 SUBL R4,RE,R7 ; Offset 
13 0026 716 BEQL 20$ ; None, so don't move 
66 08 28 0028 717 movc3 BOTS _SIZE(RS),(R6),(R4); Move driver 
54. wyOO'CF §=69E «=6002D 20718 MOVAB W*BOOSAL_VECTOR,R4 
08 AG C2 0032 7i¥ SUBL2 &7,BQO$L~SELECT(R4) ; Adjust offset 
OC AG 7 Ce 0036 720 SUBL R7 ,BQOSL DRI VRNAME (R4) 
20 A4 9) OO3A 721 BQO$L_AURDRNAME (R4) ; Is there one? 
06 13 003D ose BEQL 10$ ; No, don;t mecs 
20 AG 57 5 0O3F 7 SUBL2 R7,BQOSL_AUXDRNAME (R4) 
1C AS «65 «600463)=— 724 108: TSTL BQOSL_UNTT_INIT(R4) ; Is there one? 
06 13 004 725 BEQL 0s ; No, don;t mess 
1C AG 57 $ 004 726 SUBL2 R7,BQO0$L_UNIT_INIT(R4) 
2C AS «6S «6(0046C «= 727-208: TSTL QO$L_UNTT_DISC(R4) ; Is there one? 
6 13 CO4F 6728 BEQL ; No, don;t mess 
2C AG 7 C bee 729 SUBL2 R7 gas UNIT Rise cass 
30 a6 OD 55 730 308:  TSTL BQOSL_DEQNAMETRS) . Is there one? 
96 1 058 731 BEQL 40$ ; No, don;t mess 
30 AG ae OSA 7 ; SUBL2 R7,BQOSL_DEVNAME(R4 
OOFE 8F BA 05 733 408: POPR #*M<R1,R2,R3,R4,R5, 
5 $ 4 : RSB 
6 7 § BOOSRESELECT: 
55. OOOO'CF ODE ? MOVAL W*BOOSDRIVER_T Re ; Get address of boot driver table 
53 66 A9 QA 7 } MOV7BL RPBSB_DEVTYPTRI).R ; Get value of boot device type 
54 OO39'CF 9A 3° 7 MOVZ7ZBL W*EXESGB_CPUTYPE RG Get cpu type 
56 OOF4'BF 8635 4] my MOVZ2Wi #<BOOSDRTVER-BOOSAL_VECTOR>,R6 ; Compute offset to driver table 
0076 742 ; Determine if next driver in table is the correct one. 
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74% 10S: 


20$: 


30$: 


40$: 
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BDTSL_CPUTYPE (RS) ,RO 
o$ 


- 


BOTSL_DEVTYPE(RS) .RO 
RO,R3 

40$ 
BOTSL_ACTION(RS) ,RO 
a pea 


ebts SIZE(RS) ,R6 
ope! R_LENGTH, RS 


—_—— 


10:37:22 LOVIMOR.BUSSRCSBOOTDRIVRP.MARS?® (9) 


Get cpu t Pe from table 
End of ta 

Driver doesn't care about cpu type 
Cpu types match? 

No, try next driver 


Get boot device type from table 
Driver doesn't care about device type 
Device types match? 
No, try next driver 


Get action routine offset from table 
No action routine, this is the driver 
Call action routine 

Branch if this is the driver 
Account for this driver's size 
Point to next driver entry 

Try next driver 


263 ; Have the right driver. &5 points to driver table entry. R6 contains 


; accumulated offset from IOVEC to the start of the driver. Update 
765 : pertainent entries in the IOVEC. 


e8 bos: 
768 


70$: 
80$: 
90$: 


7? 
at, 100$: 


W*BOOSAL_VECTOR,R4 
#800 $i2z,- 

9) 
SL ENTRY (RS). ~ 


Bader DRTVRNAME (R4 
BQOSL-UNIT_INIT (Ra) 


DTSL-UNIT-INIT(RS),R1 
R6,R1,BQOSL_UNIT_INIT(R4 


pooet. AUXDRNAME (R4) 


$L-AUXDRNAME (RS) ,R1 


R6,R1,BQ0SL _AUXDRNAME (R45 


BQOSL_UNIT_DISC(R4) 


DTSL_UNIT-DISC(RS) ,RI 


Cover the vector 

Add boot QI10 size to 
driver size 

and store in RPB 


: 5 Cale offset to driver 
Shree ats bad -; 


entry point and store in vector 
Cale offset to driver 

name ar? store in vector 
; Assume none 


; Pick up possible UNIT_INIT entr 


None specified, default to a RE 
iCale offset to driver 
UNIT_INIT point and store in vector 


: Sonal none 
; Pick up possible driver name 


None specified, default to a zero 
; Cale offset to driver 
auxiliary name and store in vector 


+ heoume fone 


: pee up possible UNIT DISC entry 


specified, default to a zero 


R6,R1,BQ0$i_UNIT =DISC(RGS rege offset to driver 


BQOSL _DEVNAME (R4) 
oO Tat DE VNAME (R5) ,R1 


R6,R1,BOOSL_DEVNAME (R4) 


ISC point and store in vector 


; Assumé none 


Pick up possible device name 


; None specified, default to a zero 


Calc offset to device 
name and store in vector 


797 ; 
oe ; No driver in the driver table accepted chis Q10 


BOOTDRUVI 
v08-008 
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00 Gor? 601 400$: HALT 
OF 1 
OF? 2 ~ END 


8-JAN-19 
6-NOV-19 


5 
4 


1:87:33 


AX/VMS Macro v04-00 
UV1ROM.BUGSRCJBOOTDRIVRE. 


mand (3) 


E 14 
BOOTDRUV1 - DISPATCHER FOR BOOTSTRAP 1/0 DRIVERS F o- Jan 198 a: 33: ; AX/VMS Macro ¥06-00 Page 14 
Symbol table 6-NOV-1984 10:37: UV1ROM.BUGSRC JBOOTDRIVRP.MAR; (9) 
BDTSK_LENGTH = 8 RPP = 0c 
BDTSL_ACTION 4 RPBSB_DEVTYP = $8 
BDTSL_ADDR RPBSL_ADPVIR s 
BTSL-CPUTYPE RPBSL-CSRVIR ; 3 
BDTSL_DEVNAME zs RPBSL_IOVEC = 4 
BDTSL_DEVTYPE 2 RPBS$L_IOVECSZ = 
BOISC-ENTRY 9000016 1h meg = 9000090 
BDTSU-SITE : 0 : SVASPT : p 3 04 
Sorat totus Hitt vase vat = Seuoast® 
BOOSAC VECTOR $00 09 RG 0 VASV_SYSTEM = 6 AE 
BOOSORTVER = ie ta RG 8 VASV"VPN : aia ae 
Sookcs. vet DP * $o000088 eB ihsosane 
“UCOBE 099000 RG 03 
BOOSGL_UMR_DIS 8 8 4 RG 0 
BOOSGL ~UMR_TMPL ate RG 08 
BOOSMOVE 00000018 R 0 
B00$010 00000046 RG 02 
BOOSQI0SIZ = Q00000F4 
BOOSRE SELECT 00000063 R 05 
BOOSSELECT 00000000 R 05 
BOOT_UV1_ SWITCH = 00000001 
“Sr = $0008 
BQOSL _AUXBRNAME = Heese 
ot -pevnane = $9900 
BQOSL — DRI VRNAME = 0000000C 
WSELECT = eae ed 
BOOSL _ TENUSEC = 000000 
BQO$L _UBDELAY = 0000004 
BOOS _UCODE = 000000 
BOOSL_UMR_DIS = 00000024 
BOOSL_UMR- TMPL = 00000034 
BQOSL -UNIT_DISC = BER8 ec 
BQOSL_UNIT_ INIT = 8 0001¢ 
BOOSU_VERSTON = 209004 
EXESGB_CPUDATA $0 A RG 8 
EXE$GB_CPUTYPE 9 RG 
EXESGL~ TENUSEC RG 0 
EXESGL_UBDELAY 0 42 RG 0 
FILLSPT ‘ 8 0 
FUNC = 
LBN s f 
MODE a 
PQ s 
PR$_MAPEN 5 
PRS R s 
PTESC_kw + 
EIEaRcvat 
PUSH_RETRY 3 BR 02 
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5 
Psect synopsis “NOV-1984 UV1ROM.BUGSRC JBOOTDRIVRP.MAR; 9) 


Settee ee TS of 


: ;_Psect Synopsis : 


PSECT name PSECT No. Attributes 


0 ¢ 9. USR 


( 
( 4 
‘3% NOPIC USR 


eee e see eee weet 


! Perteraence indicators ! 
+ 


aueeeucseuncasses} 


) 
) 
) 


Elapsed Time 


Initialization 
Command processing 


Pass 
pynnos, table sort 


Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


sesesssss 
Soo 
SO0000000 
SSoSoSSoSCS 
MOOSSO—50 
=SOoOnnNnoe 
a s* « ss « . 2 
WOO o> oor 
FORM —2O=5 
SO9000055¢ 
=SS55500 
=S0000R5 


oooeoo 


The working set Limit was 1950 pages 
79539 bytes_(156 pages) of virtual memory were used to buffer the intermediate code. 
There were 70 pages of symbol table space allocated to hold 1348 non-local and 21 Local symbols. 
804 source Lines were read in Pass 1, producing 19 object records in Pass 2. 
1 pages of virtual memory were used to define 20 macros. 


Macro Library name 
~$25580UA18: ton a8 084) A a Af MLB; 1 


Sse gs0UAl ML B; 
$53250UA RYSLIBISTARLES: MLB: 3 


Terace (all Libraries) 

1419 GETS were required to define 16 macros. 

There were no errors, warnings or information messages. 

MACRO/LIS=LIS$:BCOTDRUV1P/0BJ=0BJ$:BOOTDRUVIP MSRC$:BOOUV1SWT/UPDATE=‘®'G$:BOOUV1 SWT) +MSRC$:BOOTDRI VRP/UPDATE = (BUGS: BOOTORIVRP) +L IBS 


Ss 


dei AK-EF71A-SE ate OD 
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